home *** CD-ROM | disk | FTP | other *** search
/ Usenet 1993 July / InfoMagic USENET CD-ROM July 1993.ISO / sources / unix / volume15 / monthtool2 / part02 < prev    next >
Encoding:
Internet Message Format  |  1988-06-01  |  45.5 KB
  1. Subject:  v15i028:  Monthly apointment calendar, for Suns, Part02/02
  2. Newsgroups: comp.sources.unix
  3. Sender: sources
  4. Approved: rsalz@uunet.UU.NET
  5.  
  6. Submitted-by: cognos!sarahm
  7. Posting-number: Volume 15, Issue 28
  8. Archive-name: monthtool/part02
  9.  
  10. #! /bin/sh
  11. # This is a shell archive.  Remove anything before this line, then unpack
  12. # it by saving it into a file and typing "sh file".  To overwrite existing
  13. # files, type "sh file -c".  You can also feed this as standard input via
  14. # unshar, or by typing "sh <file", e.g..  If this archive is complete, you
  15. # will see the following message at the end:
  16. #        "End of archive 2 (of 2)."
  17. # Contents:  monthtool.c
  18. # Wrapped by rsalz@fig.bbn.com on Thu Jun  2 15:04:55 1988
  19. PATH=/bin:/usr/bin:/usr/ucb ; export PATH
  20. if test -f 'monthtool.c' -a "${1}" != "-c" ; then 
  21.   echo shar: Will not clobber existing file \"'monthtool.c'\"
  22. else
  23. echo shar: Extracting \"'monthtool.c'\" \(43509 characters\)
  24. sed "s/^X//" >'monthtool.c' <<'END_OF_FILE'
  25. X/*  @(#)monthtool.c    5.1 2/20/88 */
  26. X 
  27. X/*
  28. X    Name:        monthtool
  29. X  
  30. X    Purpose:     visual appointment calendar 
  31. X  
  32. X    Author:        Sarah Metcalfe apres Mike Essex & Rich Burridge
  33. X  
  34. X    Discussion: Displays a calendar to the screen for a given month.  
  35. X                User may move the mouse to any day of the
  36. X                month and view or enter appointments for that date. 
  37. X
  38. X    Modifications:
  39. X                10 Oct 87:    Sarah Metcalfe
  40. X                            Allow weekly appointments.
  41. X                            Automatically save on close and reload on open.
  42. X                            Automatically switch to today on open.
  43. X                 9 Nov 87:    D. Brent Chapman (capmkt!brent) 
  44. X                            Set the "DEFAULT_FONT" environment variable to 
  45. X                            the monthtool font, so that the program works 
  46. X                            properly under SunOS 3.4.
  47. X                25 Nov 87:    Steve Schlaifer (jplgodo!steve) 
  48. X                            Better fix for above problem.
  49. X                25 Nov 87:    Sarah Metcalfe 
  50. X                            Create half-shaded date boxes for days with only
  51. X                            yearly, monthly, weekly appts.
  52. X                20 Feb 88:    Sarah Metcalfe 
  53. X                            Fix message length bug (at least somewhat).
  54. X
  55. X*/
  56. X
  57. X
  58. X
  59. X
  60. X#include "monthtool.h"
  61. X
  62. static Notify_value     openCloseEvent();
  63. X
  64. void             dateEvent();
  65. X
  66. void             monthEvent();
  67. void             todayBtnHit();
  68. void             upBtnHit();
  69. void             downBtnHit();
  70. void             monthBackgroundHit();
  71. X
  72. void             notesBackgroundHit();
  73. void             notesPanelEvent();
  74. void             notesRadioHit();
  75. X
  76. Canvas             datesDsply;
  77. Textsw             notesDsply;
  78. Panel             monthPanel,
  79. X                 notesPanel;
  80. XFrame             frame;
  81. Menu             mainMenu,
  82. X                 fileMenu;
  83. Panel_item         monthItem,
  84. X                 notesTypeItem;
  85. Pixwin            *datesCrayon;
  86. struct pixfont     *font,
  87. X                *notesFont;
  88. X
  89. X
  90. short             dayIcon[] = {
  91. X    0xFFFF,0xFFFF,0xFF00,0x0000,0x8000,0x0000,0x0100,0x0000,
  92. X    0x8000,0x0000,0x0100,0x0000,0x8000,0x0000,0x0100,0x0000,
  93. X    0x8000,0x0000,0x0100,0x0000,0x8000,0x0000,0x0100,0x0000,
  94. X    0x8000,0x0000,0x0100,0x0000,0x8000,0x0000,0x0100,0x0000,
  95. X    0x8000,0x0000,0x0100,0x0000,0x8000,0x0000,0x0100,0x0000,
  96. X    0x8000,0x0000,0x0100,0x0000,0x8000,0x0000,0x0100,0x0000,
  97. X    0x8000,0x0000,0x0100,0x0000,0x8000,0x0000,0x0100,0x0000,
  98. X    0x8000,0x0000,0x0100,0x0000,0x8000,0x0000,0x0100,0x0000,
  99. X    0x8000,0x0000,0x0100,0x0000,0x8000,0x0000,0x0100,0x0000,
  100. X    0x8000,0x0000,0x0100,0x0000,0x8000,0x0000,0x0100,0x0000,
  101. X    0x8000,0x0000,0x0100,0x0000,0x8000,0x0000,0x0100,0x0000,
  102. X    0x8000,0x0000,0x0100,0x0000,0x8000,0x0000,0x0100,0x0000,
  103. X    0x8000,0x0000,0x0100,0x0000,0xFFFF,0xFFFF,0xFF00,0x0000,
  104. X    0x0000,0x0000,0x0000,0x0000,0x0000,0x0000,0x0000,0x0000,
  105. X    0x0000,0x0000,0x0000,0x0000,0x0000,0x0000,0x0000,0x0000,
  106. X    0x0000,0x0000,0x0000,0x0000,0x0000,0x0000,0x0000,0x0000,
  107. X    0x0000,0x0000,0x0000,0x0000,0x0000,0x0000,0x0000,0x0000,
  108. X    0x0000,0x0000,0x0000,0x0000,0x0000,0x0000,0x0000,0x0000,
  109. X    0x0000,0x0000,0x0000,0x0000,0x0000,0x0000,0x0000,0x0000,
  110. X    0x0000,0x0000,0x0000,0x0000,0x0000,0x0000,0x0000,0x0000,
  111. X    0x0000,0x0000,0x0000,0x0000,0x0000,0x0000,0x0000,0x0000,
  112. X    0x0000,0x0000,0x0000,0x0000,0x0000,0x0000,0x0000,0x0000,
  113. X    0x0000,0x0000,0x0000,0x0000,0x0000,0x0000,0x0000,0x0000,
  114. X    0x0000,0x0000,0x0000,0x0000,0x0000,0x0000,0x0000,0x0000,
  115. X    0x0000,0x0000,0x0000,0x0000,0x0000,0x0000,0x0000,0x0000,
  116. X    0x0000,0x0000,0x0000,0x0000,0x0000,0x0000,0x0000,0x0000,
  117. X    0x0000,0x0000,0x0000,0x0000,0x0000,0x0000,0x0000,0x0000,
  118. X    0x0000,0x0000,0x0000,0x0000,0x0000,0x0000,0x0000,0x0000,
  119. X    0x0000,0x0000,0x0000,0x0000,0x0000,0x0000,0x0000,0x0000,
  120. X    0x0000,0x0000,0x0000,0x0000,0x0000,0x0000,0x0000,0x0000,
  121. X    0x0000,0x0000,0x0000,0x0000,0x0000,0x0000,0x0000,0x0000,
  122. X    0x0000,0x0000,0x0000,0x0000,0x0000,0x0000,0x0000,0x0000
  123. X};
  124. mpr_static(dayPr, 64, 64, 1, dayIcon);
  125. X
  126. short             halfDayIcon[] = {
  127. X    0xFFFF,0xFFFF,0xFF00,0x0000,0x8000,0x0000,0x0100,0x0000,
  128. X    0xBFFF,0xFFFF,0xFD00,0x0000,0xA000,0x0000,0x0500,0x0000,
  129. X    0xA000,0x0000,0x0500,0x0000,0xA000,0x0000,0x0500,0x0000,
  130. X    0xA000,0x0000,0x0500,0x0000,0xA000,0x0000,0x0500,0x0000,
  131. X    0xA000,0x0000,0x0500,0x0000,0xA000,0x0000,0x0500,0x0000,
  132. X    0xA000,0x0000,0x0500,0x0000,0xA000,0x0000,0x0500,0x0000,
  133. X    0xA000,0x0000,0x0500,0x0000,0xA000,0x0000,0x0500,0x0000,
  134. X    0xA000,0x0000,0x0500,0x0000,0xA000,0x0000,0x0500,0x0000,
  135. X    0xA000,0x0000,0x0500,0x0000,0xA000,0x0000,0x0500,0x0000,
  136. X    0xA000,0x0000,0x0500,0x0000,0xA000,0x0000,0x0500,0x0000,
  137. X    0xA000,0x0000,0x0500,0x0000,0xA000,0x0000,0x0500,0x0000,
  138. X    0xA000,0x0000,0x0500,0x0000,0xBFFF,0xFFFF,0xFD00,0x0000,
  139. X    0x8000,0x0000,0x0100,0x0000,0xFFFF,0xFFFF,0xFF00,0x0000,
  140. X    0x0000,0x0000,0x0000,0x0000,0x0000,0x0000,0x0000,0x0000,
  141. X    0x0000,0x0000,0x0000,0x0000,0x0000,0x0000,0x0000,0x0000,
  142. X    0x0000,0x0000,0x0000,0x0000,0x0000,0x0000,0x0000,0x0000,
  143. X    0x0000,0x0000,0x0000,0x0000,0x0000,0x0000,0x0000,0x0000,
  144. X    0x0000,0x0000,0x0000,0x0000,0x0000,0x0000,0x0000,0x0000,
  145. X    0x0000,0x0000,0x0000,0x0000,0x0000,0x0000,0x0000,0x0000,
  146. X    0x0000,0x0000,0x0000,0x0000,0x0000,0x0000,0x0000,0x0000,
  147. X    0x0000,0x0000,0x0000,0x0000,0x0000,0x0000,0x0000,0x0000,
  148. X    0x0000,0x0000,0x0000,0x0000,0x0000,0x0000,0x0000,0x0000,
  149. X    0x0000,0x0000,0x0000,0x0000,0x0000,0x0000,0x0000,0x0000,
  150. X    0x0000,0x0000,0x0000,0x0000,0x0000,0x0000,0x0000,0x0000,
  151. X    0x0000,0x0000,0x0000,0x0000,0x0000,0x0000,0x0000,0x0000,
  152. X    0x0000,0x0000,0x0000,0x0000,0x0000,0x0000,0x0000,0x0000,
  153. X    0x0000,0x0000,0x0000,0x0000,0x0000,0x0000,0x0000,0x0000,
  154. X    0x0000,0x0000,0x0000,0x0000,0x0000,0x0000,0x0000,0x0000,
  155. X    0x0000,0x0000,0x0000,0x0000,0x0000,0x0000,0x0000,0x0000,
  156. X    0x0000,0x0000,0x0000,0x0000,0x0000,0x0000,0x0000,0x0000,
  157. X    0x0000,0x0000,0x0000,0x0000,0x0000,0x0000,0x0000,0x0000,
  158. X    0x0000,0x0000,0x0000,0x0000,0x0000,0x0000,0x0000,0x0000
  159. X};
  160. mpr_static(halfDayPr, 64, 64, 1, halfDayIcon);
  161. X
  162. short             fullDayIcon[] = {
  163. X    0xFFFF,0xFFFF,0xFF00,0x0000,0xFFFF,0xFFFF,0xFF00,0x0000,
  164. X    0xFFFF,0xFFFF,0xFF00,0x0000,0xE000,0x0000,0x0700,0x0000,
  165. X    0xE000,0x0000,0x0700,0x0000,0xE000,0x0000,0x0700,0x0000,
  166. X    0xE000,0x0000,0x0700,0x0000,0xE000,0x0000,0x0700,0x0000,
  167. X    0xE000,0x0000,0x0700,0x0000,0xE000,0x0000,0x0700,0x0000,
  168. X    0xE000,0x0000,0x0700,0x0000,0xE000,0x0000,0x0700,0x0000,
  169. X    0xE000,0x0000,0x0700,0x0000,0xE000,0x0000,0x0700,0x0000,
  170. X    0xE000,0x0000,0x0700,0x0000,0xE000,0x0000,0x0700,0x0000,
  171. X    0xE000,0x0000,0x0700,0x0000,0xE000,0x0000,0x0700,0x0000,
  172. X    0xE000,0x0000,0x0700,0x0000,0xE000,0x0000,0x0700,0x0000,
  173. X    0xE000,0x0000,0x0700,0x0000,0xE000,0x0000,0x0700,0x0000,
  174. X    0xE000,0x0000,0x0700,0x0000,0xFFFF,0xFFFF,0xFF00,0x0000,
  175. X    0xFFFF,0xFFFF,0xFF00,0x0000,0xFFFF,0xFFFF,0xFF00,0x0000,
  176. X    0x0000,0x0000,0x0000,0x0000,0x0000,0x0000,0x0000,0x0000,
  177. X    0x0000,0x0000,0x0000,0x0000,0x0000,0x0000,0x0000,0x0000,
  178. X    0x0000,0x0000,0x0000,0x0000,0x0000,0x0000,0x0000,0x0000,
  179. X    0x0000,0x0000,0x0000,0x0000,0x0000,0x0000,0x0000,0x0000,
  180. X    0x0000,0x0000,0x0000,0x0000,0x0000,0x0000,0x0000,0x0000,
  181. X    0x0000,0x0000,0x0000,0x0000,0x0000,0x0000,0x0000,0x0000,
  182. X    0x0000,0x0000,0x0000,0x0000,0x0000,0x0000,0x0000,0x0000,
  183. X    0x0000,0x0000,0x0000,0x0000,0x0000,0x0000,0x0000,0x0000,
  184. X    0x0000,0x0000,0x0000,0x0000,0x0000,0x0000,0x0000,0x0000,
  185. X    0x0000,0x0000,0x0000,0x0000,0x0000,0x0000,0x0000,0x0000,
  186. X    0x0000,0x0000,0x0000,0x0000,0x0000,0x0000,0x0000,0x0000,
  187. X    0x0000,0x0000,0x0000,0x0000,0x0000,0x0000,0x0000,0x0000,
  188. X    0x0000,0x0000,0x0000,0x0000,0x0000,0x0000,0x0000,0x0000,
  189. X    0x0000,0x0000,0x0000,0x0000,0x0000,0x0000,0x0000,0x0000,
  190. X    0x0000,0x0000,0x0000,0x0000,0x0000,0x0000,0x0000,0x0000,
  191. X    0x0000,0x0000,0x0000,0x0000,0x0000,0x0000,0x0000,0x0000,
  192. X    0x0000,0x0000,0x0000,0x0000,0x0000,0x0000,0x0000,0x0000,
  193. X    0x0000,0x0000,0x0000,0x0000,0x0000,0x0000,0x0000,0x0000,
  194. X    0x0000,0x0000,0x0000,0x0000,0x0000,0x0000,0x0000,0x0000
  195. X};
  196. mpr_static(fullDayPr, 64, 64, 1, fullDayIcon);
  197. X
  198. short             daySelIcon[] = {
  199. X    0xFFFF,0xFFFF,0xFF00,0x0000,0xA222,0x2222,0x2300,0x0000,
  200. X    0xC444,0x4444,0x4500,0x0000,0x9111,0x1111,0x1100,0x0000,
  201. X    0x8888,0x8888,0x8900,0x0000,0xA222,0x2222,0x2300,0x0000,
  202. X    0xC444,0x4444,0x4500,0x0000,0x9111,0x1111,0x1100,0x0000,
  203. X    0x8888,0x8888,0x8900,0x0000,0xA222,0x2222,0x2300,0x0000,
  204. X    0xC444,0x4444,0x4500,0x0000,0x9111,0x1111,0x1100,0x0000,
  205. X    0x8888,0x8888,0x8900,0x0000,0xA222,0x2222,0x2300,0x0000,
  206. X    0xC444,0x4444,0x4500,0x0000,0x9111,0x1111,0x1100,0x0000,
  207. X    0x8888,0x8888,0x8900,0x0000,0xA222,0x2222,0x2300,0x0000,
  208. X    0xC444,0x4444,0x4500,0x0000,0x9111,0x1111,0x1100,0x0000,
  209. X    0x8888,0x8888,0x8900,0x0000,0xA222,0x2222,0x2300,0x0000,
  210. X    0xC444,0x4444,0x4500,0x0000,0x9111,0x1111,0x1100,0x0000,
  211. X    0x8888,0x8888,0x8900,0x0000,0xFFFF,0xFFFF,0xFF00,0x0000,
  212. X    0x0000,0x0000,0x0000,0x0000,0x0000,0x0000,0x0000,0x0000,
  213. X    0x0000,0x0000,0x0000,0x0000,0x0000,0x0000,0x0000,0x0000,
  214. X    0x0000,0x0000,0x0000,0x0000,0x0000,0x0000,0x0000,0x0000,
  215. X    0x0000,0x0000,0x0000,0x0000,0x0000,0x0000,0x0000,0x0000,
  216. X    0x0000,0x0000,0x0000,0x0000,0x0000,0x0000,0x0000,0x0000,
  217. X    0x0000,0x0000,0x0000,0x0000,0x0000,0x0000,0x0000,0x0000,
  218. X    0x0000,0x0000,0x0000,0x0000,0x0000,0x0000,0x0000,0x0000,
  219. X    0x0000,0x0000,0x0000,0x0000,0x0000,0x0000,0x0000,0x0000,
  220. X    0x0000,0x0000,0x0000,0x0000,0x0000,0x0000,0x0000,0x0000,
  221. X    0x0000,0x0000,0x0000,0x0000,0x0000,0x0000,0x0000,0x0000,
  222. X    0x0000,0x0000,0x0000,0x0000,0x0000,0x0000,0x0000,0x0000,
  223. X    0x0000,0x0000,0x0000,0x0000,0x0000,0x0000,0x0000,0x0000,
  224. X    0x0000,0x0000,0x0000,0x0000,0x0000,0x0000,0x0000,0x0000,
  225. X    0x0000,0x0000,0x0000,0x0000,0x0000,0x0000,0x0000,0x0000,
  226. X    0x0000,0x0000,0x0000,0x0000,0x0000,0x0000,0x0000,0x0000,
  227. X    0x0000,0x0000,0x0000,0x0000,0x0000,0x0000,0x0000,0x0000,
  228. X    0x0000,0x0000,0x0000,0x0000,0x0000,0x0000,0x0000,0x0000,
  229. X    0x0000,0x0000,0x0000,0x0000,0x0000,0x0000,0x0000,0x0000,
  230. X    0x0000,0x0000,0x0000,0x0000,0x0000,0x0000,0x0000,0x0000
  231. X};
  232. mpr_static(daySelPr, 64, 64, 1, daySelIcon);
  233. X
  234. short             halfDaySelIcon[] = {
  235. X    0xFFFF,0xFFFF,0xFF00,0x0000,0x8000,0x0000,0x0100,0x0000,
  236. X    0xBFFF,0xFFFF,0xFD00,0x0000,0xB111,0x1111,0x1500,0x0000,
  237. X    0xA888,0x8888,0x8D00,0x0000,0xA222,0x2222,0x2500,0x0000,
  238. X    0xA444,0x4444,0x4500,0x0000,0xB111,0x1111,0x1500,0x0000,
  239. X    0xA888,0x8888,0x8D00,0x0000,0xA222,0x2222,0x2500,0x0000,
  240. X    0xA444,0x4444,0x4500,0x0000,0xB111,0x1111,0x1500,0x0000,
  241. X    0xA888,0x8888,0x8D00,0x0000,0xA222,0x2222,0x2500,0x0000,
  242. X    0xA444,0x4444,0x4500,0x0000,0xB111,0x1111,0x1500,0x0000,
  243. X    0xA888,0x8888,0x8D00,0x0000,0xA222,0x2222,0x2500,0x0000,
  244. X    0xA444,0x4444,0x4500,0x0000,0xB111,0x1111,0x1500,0x0000,
  245. X    0xA888,0x8888,0x8D00,0x0000,0xA222,0x2222,0x2500,0x0000,
  246. X    0xA444,0x4444,0x4500,0x0000,0xBFFF,0xFFFF,0xFD00,0x0000,
  247. X    0x8000,0x0000,0x0100,0x0000,0xFFFF,0xFFFF,0xFF00,0x0000,
  248. X    0x0000,0x0000,0x0000,0x0000,0x0000,0x0000,0x0000,0x0000,
  249. X    0x0000,0x0000,0x0000,0x0000,0x0000,0x0000,0x0000,0x0000,
  250. X    0x0000,0x0000,0x0000,0x0000,0x0000,0x0000,0x0000,0x0000,
  251. X    0x0000,0x0000,0x0000,0x0000,0x0000,0x0000,0x0000,0x0000,
  252. X    0x0000,0x0000,0x0000,0x0000,0x0000,0x0000,0x0000,0x0000,
  253. X    0x0000,0x0000,0x0000,0x0000,0x0000,0x0000,0x0000,0x0000,
  254. X    0x0000,0x0000,0x0000,0x0000,0x0000,0x0000,0x0000,0x0000,
  255. X    0x0000,0x0000,0x0000,0x0000,0x0000,0x0000,0x0000,0x0000,
  256. X    0x0000,0x0000,0x0000,0x0000,0x0000,0x0000,0x0000,0x0000,
  257. X    0x0000,0x0000,0x0000,0x0000,0x0000,0x0000,0x0000,0x0000,
  258. X    0x0000,0x0000,0x0000,0x0000,0x0000,0x0000,0x0000,0x0000,
  259. X    0x0000,0x0000,0x0000,0x0000,0x0000,0x0000,0x0000,0x0000,
  260. X    0x0000,0x0000,0x0000,0x0000,0x0000,0x0000,0x0000,0x0000,
  261. X    0x0000,0x0000,0x0000,0x0000,0x0000,0x0000,0x0000,0x0000,
  262. X    0x0000,0x0000,0x0000,0x0000,0x0000,0x0000,0x0000,0x0000,
  263. X    0x0000,0x0000,0x0000,0x0000,0x0000,0x0000,0x0000,0x0000,
  264. X    0x0000,0x0000,0x0000,0x0000,0x0000,0x0000,0x0000,0x0000,
  265. X    0x0000,0x0000,0x0000,0x0000,0x0000,0x0000,0x0000,0x0000,
  266. X    0x0000,0x0000,0x0000,0x0000,0x0000,0x0000,0x0000,0x0000
  267. X};
  268. mpr_static(halfDaySelPr, 64, 64, 1, halfDaySelIcon);
  269. X
  270. short             fullDaySelIcon[] = {
  271. X    0xFFFF,0xFFFF,0xFF00,0x0000,0xFFFF,0xFFFF,0xFF00,0x0000,
  272. X    0xFFFF,0xFFFF,0xFF00,0x0000,0xF111,0x1111,0x1700,0x0000,
  273. X    0xE888,0x8888,0x8F00,0x0000,0xE222,0x2222,0x2700,0x0000,
  274. X    0xE444,0x4444,0x4700,0x0000,0xF111,0x1111,0x1700,0x0000,
  275. X    0xE888,0x8888,0x8F00,0x0000,0xE222,0x2222,0x2700,0x0000,
  276. X    0xE444,0x4444,0x4700,0x0000,0xF111,0x1111,0x1700,0x0000,
  277. X    0xE888,0x8888,0x8F00,0x0000,0xE222,0x2222,0x2700,0x0000,
  278. X    0xE444,0x4444,0x4700,0x0000,0xF111,0x1111,0x1700,0x0000,
  279. X    0xE888,0x8888,0x8F00,0x0000,0xE222,0x2222,0x2700,0x0000,
  280. X    0xE444,0x4444,0x4700,0x0000,0xF111,0x1111,0x1700,0x0000,
  281. X    0xE888,0x8888,0x8F00,0x0000,0xE222,0x2222,0x2700,0x0000,
  282. X    0xE444,0x4444,0x4700,0x0000,0xFFFF,0xFFFF,0xFF00,0x0000,
  283. X    0xFFFF,0xFFFF,0xFF00,0x0000,0xFFFF,0xFFFF,0xFF00,0x0000,
  284. X    0x0000,0x0000,0x0000,0x0000,0x0000,0x0000,0x0000,0x0000,
  285. X    0x0000,0x0000,0x0000,0x0000,0x0000,0x0000,0x0000,0x0000,
  286. X    0x0000,0x0000,0x0000,0x0000,0x0000,0x0000,0x0000,0x0000,
  287. X    0x0000,0x0000,0x0000,0x0000,0x0000,0x0000,0x0000,0x0000,
  288. X    0x0000,0x0000,0x0000,0x0000,0x0000,0x0000,0x0000,0x0000,
  289. X    0x0000,0x0000,0x0000,0x0000,0x0000,0x0000,0x0000,0x0000,
  290. X    0x0000,0x0000,0x0000,0x0000,0x0000,0x0000,0x0000,0x0000,
  291. X    0x0000,0x0000,0x0000,0x0000,0x0000,0x0000,0x0000,0x0000,
  292. X    0x0000,0x0000,0x0000,0x0000,0x0000,0x0000,0x0000,0x0000,
  293. X    0x0000,0x0000,0x0000,0x0000,0x0000,0x0000,0x0000,0x0000,
  294. X    0x0000,0x0000,0x0000,0x0000,0x0000,0x0000,0x0000,0x0000,
  295. X    0x0000,0x0000,0x0000,0x0000,0x0000,0x0000,0x0000,0x0000,
  296. X    0x0000,0x0000,0x0000,0x0000,0x0000,0x0000,0x0000,0x0000,
  297. X    0x0000,0x0000,0x0000,0x0000,0x0000,0x0000,0x0000,0x0000,
  298. X    0x0000,0x0000,0x0000,0x0000,0x0000,0x0000,0x0000,0x0000,
  299. X    0x0000,0x0000,0x0000,0x0000,0x0000,0x0000,0x0000,0x0000,
  300. X    0x0000,0x0000,0x0000,0x0000,0x0000,0x0000,0x0000,0x0000,
  301. X    0x0000,0x0000,0x0000,0x0000,0x0000,0x0000,0x0000,0x0000,
  302. X    0x0000,0x0000,0x0000,0x0000,0x0000,0x0000,0x0000,0x0000
  303. X};
  304. mpr_static(fullDaySelPr, 64, 64, 1, fullDaySelIcon);
  305. X
  306. X
  307. short             upBtnIcon[] = {
  308. X    0x3FFF,0xE000,0x7FFF,0xF000,
  309. X    0xE000,0x3800,0xC000,0x1800,
  310. X    0xC020,0x1800,0xC070,0x1800,
  311. X    0xC0F8,0x1800,0xC1FC,0x1800,
  312. X    0xC3FE,0x1800,0xC7FF,0x1800,
  313. X    0xCFFF,0x9800,0xC0F8,0x1800,
  314. X    0xC0F8,0x1800,0xC0F8,0x1800,
  315. X    0xC0F8,0x1800,0xC000,0x1800,
  316. X    0xE000,0x3800,0x7FFF,0xF000,
  317. X    0x3FFF,0xE000,0x0000,0x0000
  318. X};
  319. mpr_static(upBtnPr, BTN_WIDTH, BTN_HEIGHT, 1, upBtnIcon);
  320. X
  321. short             downBtnIcon[] = {
  322. X    0x3FFF,0xE000,0x7FFF,0xF000,
  323. X    0xE000,0x3800,0xC000,0x1800,
  324. X    0xC0F8,0x1800,0xC0F8,0x1800,
  325. X    0xC0F8,0x1800,0xC0F8,0x1800,
  326. X    0xCFFF,0x9800,0xC7FF,0x1800,
  327. X    0xC3FE,0x1800,0xC1FC,0x1800,
  328. X    0xC0F8,0x1800,0xC070,0x1800,
  329. X    0xC020,0x1800,0xC000,0x1800,
  330. X    0xE000,0x3800,0x7FFF,0xF000,
  331. X    0x3FFF,0xE000,0x0000,0x0000
  332. X};
  333. mpr_static(downBtnPr, BTN_WIDTH, BTN_HEIGHT, 1, downBtnIcon);
  334. X
  335. X
  336. short             toolIcon[] = {
  337. X    0xFFFF,0xFFFF,0xFFFF,0xFFFF,0x8C08,0x87C2,0x21F0,0xF031,
  338. X    0x920D,0x8102,0x2040,0x8049,0x880A,0x8102,0xA040,0xE021,
  339. X    0x840A,0x8102,0xA040,0x8011,0x9208,0x8103,0x6040,0x8049,
  340. X    0x8C08,0x8102,0x2040,0x8031,0xFFFF,0xFFFF,0xFFFF,0xFFFF,
  341. X    0xFFFF,0xFFFF,0xFFFF,0xFFFF,0x8040,0x2010,0x0804,0x0201,
  342. X    0x8040,0x2814,0x0A05,0x0281,0x8040,0x2814,0x0A05,0x0281,
  343. X    0x8040,0x2010,0x0804,0x0201,0x8040,0x2010,0x0804,0x0201,
  344. X    0x8040,0x2013,0xA804,0x0201,0x8040,0x2010,0x0804,0x0201,
  345. X    0x8040,0x2016,0x8804,0x0201,0x8040,0x2010,0x0804,0x0201,
  346. X    0x8040,0x2010,0x0804,0x0201,0xFFFF,0xFFFF,0xFFFF,0xFFFF,
  347. X    0x8040,0x2010,0x0804,0x0201,0xA050,0x2814,0x0B05,0x82C1,
  348. X    0xA050,0x2814,0x0B05,0x82C1,0x8040,0x2010,0x0804,0x0201,
  349. X    0x8040,0x2010,0x0804,0x0201,0x8040,0x2010,0x0805,0xD201,
  350. X    0x8040,0x2010,0x0804,0x0201,0x8040,0x2010,0x0804,0x0201,
  351. X    0x8040,0x2010,0x0804,0x0201,0x8040,0x2010,0x0804,0x0201,
  352. X    0xFFFF,0xFFFF,0xFFFF,0xFFFF,0x8040,0x2010,0x0804,0x0201,
  353. X    0xB058,0x2C16,0x0B05,0x82C1,0xB058,0x2C16,0x0B05,0x82C1,
  354. X    0x8040,0x2010,0x0804,0x0201,0x8040,0x2F50,0x0804,0x0201,
  355. X    0x8040,0x2010,0x0804,0x0201,0x8040,0x2D50,0x0804,0x0201,
  356. X    0x8040,0x2010,0x0804,0x0201,0x8040,0x2010,0x0804,0x0201,
  357. X    0x8040,0x2010,0x0804,0x0201,0xFFFF,0xFFFF,0xFFFF,0xFFFF,
  358. X    0x8040,0x2010,0x0804,0x0201,0xB058,0x2C16,0x0B05,0x82C1,
  359. X    0xB058,0x2C16,0x0B05,0x82C1,0x8040,0x2010,0x0804,0x0201,
  360. X    0x8040,0x2010,0x0BE4,0x0201,0x8040,0x2010,0x0804,0x0201,
  361. X    0x8040,0x2010,0x0BA4,0x0201,0x8040,0x2010,0x0804,0x0201,
  362. X    0x8040,0x2010,0x0804,0x0201,0x8040,0x2010,0x0804,0x0201,
  363. X    0xFFFF,0xFFFF,0xFFFF,0xFFFF,0x8040,0x2010,0x0804,0x0201,
  364. X    0xB058,0x2C16,0x0B04,0x0201,0xB058,0x2C16,0x0B04,0x0201,
  365. X    0x8040,0x2010,0x0804,0x0201,0x8040,0x2010,0x0804,0x0201,
  366. X    0xBA40,0x2017,0xC804,0x0201,0x8040,0x2010,0x0804,0x0201,
  367. X    0x8040,0x2013,0xC804,0x0201,0x9240,0x2010,0x0804,0x0201,
  368. X    0x8040,0x2010,0x0804,0x0201,0xFFFF,0xFFFF,0xFFFF,0xFFFF
  369. X};
  370. DEFINE_ICON_FROM_IMAGE(monthIcon, toolIcon);
  371. X
  372. X
  373. X
  374. struct dateBox         monthBoxes[DATE_ROWS][DATE_COLS];
  375. X
  376. X
  377. struct apptsData     *firstApptRecord[NUM_NOTES_TYPE + 1 /*for NOTES_ERROR*/];
  378. struct apptsData     *lastApptRecord[NUM_NOTES_TYPE + 1 /*for NOTES_ERROR*/];
  379. X
  380. X    
  381. int                     tmonth, tday, tyear;
  382. int                     firstDow;
  383. X
  384. int                     yearToShow, monthToShow;
  385. int                     dayToShow = 0;
  386. int                     dateNumToShow[NUM_NOTES_TYPE];
  387. X
  388. int                     editCount = 0;
  389. int                     notesModified = 0;
  390. int                     hasWeeklyNotes;
  391. X
  392. char                 toolFile[80];
  393. struct stat             lastStatus;
  394. X
  395. char                 typeChar[NUM_NOTES_TYPE] = { 0x90, 0x91, 0x92, 0x93, 0x94 }; 
  396. char                 typeMark[3] = "  ";
  397. X                            
  398. char                *smon[] = { "January", "February", "March",
  399. X                                "April", "May", "June",
  400. X                                "July", "August", "September",
  401. X                                "October", "November", "December"
  402. X                              };
  403. int                     mon[] = { 0,     31, 29, 31, 
  404. X                                    30, 31, 30,
  405. X                                    31, 31, 30, 
  406. X                                    31, 30, 31, 
  407. X                              };
  408. X
  409. X
  410. main(argc, argv)
  411. X
  412. int         argc;
  413. char    *argv[];
  414. X
  415. X{
  416. X    char    fontString[80];
  417. X    char    choiceString[2];
  418. X    int        type;
  419. X
  420. X    /* set default font */
  421. X
  422. X    strcpy(fontString, FONTDIR);
  423. X    strcat(fontString, NORMALFONT);
  424. X
  425. X    font = pf_open(LARGEFONT);              /* Open large sized font. */
  426. X    notesFont = pf_open(fontString);        /* Open regular sized font. */
  427. X
  428. X    /* Set up menus */
  429. X                        
  430. X    fileMenu = menu_create(MENU_ITEM,
  431. X                                MENU_STRING,    "Save",
  432. X                                MENU_VALUE,         MENU_SAVE,
  433. X                                0,
  434. X                            MENU_ITEM,
  435. X                                MENU_STRING,    "Reload",
  436. X                                MENU_VALUE,         MENU_RELOAD,
  437. X                                0,
  438. X                            0);
  439. X
  440. X    mainMenu = menu_create(MENU_ITEM,
  441. X                                MENU_STRING,    "Close (with Save)",
  442. X                                MENU_VALUE,         MENU_CLOSE,
  443. X                                0,
  444. X                            MENU_ITEM,
  445. X                                MENU_STRING,    "Update Appts.",
  446. X                                MENU_PULLRIGHT,     fileMenu,
  447. X                                0,
  448. X                            MENU_ITEM,
  449. X                                MENU_STRING,    "Quit (with Save)",
  450. X                                MENU_VALUE,         MENU_QUIT,
  451. X                                0,
  452. X                            0);
  453. X                        
  454. X
  455. X    /*    Set up windows */
  456. X
  457. X    frame = window_create(0, FRAME,
  458. X                FRAME_ICON, &monthIcon,
  459. X                FRAME_SHOW_LABEL, FALSE,
  460. X                FRAME_SUBWINDOWS_ADJUSTABLE, FALSE,
  461. X                FRAME_NO_CONFIRM, FALSE,
  462. X                WIN_HEIGHT, DATES_HEIGHT + MONTH_HEIGHT + 
  463. X                    NOTES_PANEL_HEIGHT + NOTES_HEIGHT + 25,
  464. X                WIN_WIDTH, WINDOW_WIDTH + 10,
  465. X                FRAME_ARGS, argc, argv,
  466. X                0);
  467. X    (void) notify_interpose_event_func( frame, openCloseEvent, NOTIFY_SAFE );
  468. X
  469. X    monthPanel = window_create(frame, PANEL,
  470. X                WIN_X, 0,
  471. X                WIN_Y, 0,
  472. X                WIN_HEIGHT, MONTH_HEIGHT,
  473. X                WIN_WIDTH, WINDOW_WIDTH,
  474. X                WIN_FONT, font,
  475. X                PANEL_BACKGROUND_PROC, monthBackgroundHit,
  476. X                PANEL_EVENT_PROC, monthEvent,
  477. X                0);
  478. X
  479. X    datesDsply = window_create(frame, CANVAS,
  480. X                WIN_X, 0,
  481. X                WIN_BELOW, monthPanel,
  482. X                WIN_HEIGHT, DATES_HEIGHT,
  483. X                WIN_WIDTH, WINDOW_WIDTH,
  484. X                WIN_FONT, font,
  485. X                WIN_EVENT_PROC, dateEvent,
  486. X                WIN_CONSUME_KBD_EVENTS, WIN_ASCII_EVENTS, WIN_LEFT_KEYS, 0,
  487. X                0);
  488. X
  489. X    datesCrayon = canvas_pixwin(datesDsply);
  490. X
  491. X    notesPanel = window_create(frame, PANEL,
  492. X                WIN_X, 0,
  493. X                WIN_BELOW, datesDsply,
  494. X                WIN_HEIGHT, NOTES_PANEL_HEIGHT,
  495. X                WIN_WIDTH, WINDOW_WIDTH,
  496. X                WIN_FONT, notesFont,
  497. X                PANEL_BACKGROUND_PROC, notesBackgroundHit,
  498. X                PANEL_EVENT_PROC, notesPanelEvent,
  499. X                0);
  500. X
  501. X    notesDsply = window_create(frame, TEXTSW,
  502. X                WIN_X, 0,
  503. X                WIN_BELOW, notesPanel,
  504. X                WIN_HEIGHT, WIN_EXTEND_TO_EDGE,
  505. X                WIN_WIDTH, 10000 /* very large number, cuts to actual width */,
  506. X                WIN_FONT, notesFont,
  507. X                TEXTSW_IGNORE_LIMIT, TEXTSW_INFINITY,
  508. X                0);
  509. X    /* For bug in Sun Version 3.4 */
  510. X    window_set( notesDsply, WIN_FONT, notesFont, 0);
  511. X
  512. X    /* Set up panels */
  513. X
  514. X
  515. X    monthItem = panel_create_item(monthPanel, PANEL_MESSAGE,
  516. X                    PANEL_LABEL_X, 5,
  517. X                    PANEL_LABEL_Y, 10,
  518. X                  0);
  519. X                        
  520. X
  521. X    panel_create_item( monthPanel, PANEL_BUTTON,
  522. X                        PANEL_ITEM_X, WINDOW_WIDTH - 2 * (BTN_WIDTH + GAP) - 55,
  523. X                        PANEL_ITEM_Y, 10,
  524. X                          PANEL_NOTIFY_PROC, todayBtnHit, 
  525. X                           PANEL_LABEL_IMAGE,
  526. X                            panel_button_image(monthPanel,"Today",0,notesFont),
  527. X                        0);
  528. X
  529. X    panel_create_item( monthPanel, PANEL_BUTTON,
  530. X                        PANEL_ITEM_X, WINDOW_WIDTH - 2 * (BTN_WIDTH + GAP),
  531. X                        PANEL_ITEM_Y, 10,
  532. X                          PANEL_NOTIFY_PROC, upBtnHit, 
  533. X                           PANEL_LABEL_IMAGE, &upBtnPr,
  534. X                        0);
  535. X
  536. X    panel_create_item( monthPanel, PANEL_BUTTON,
  537. X                        PANEL_ITEM_X, WINDOW_WIDTH - (BTN_WIDTH + GAP),
  538. X                        PANEL_ITEM_Y, 10,
  539. X                          PANEL_NOTIFY_PROC, downBtnHit, 
  540. X                           PANEL_LABEL_IMAGE, &downBtnPr,
  541. X                        0);
  542. X
  543. X
  544. X    notesTypeItem = panel_create_item( notesPanel, PANEL_CHOICE,
  545. X                        PANEL_LABEL_STRING, "Reminder Types:",
  546. X                        PANEL_FEEDBACK, PANEL_NONE,
  547. X                        PANEL_NOTIFY_PROC, notesRadioHit,
  548. X                    0);
  549. X    choiceString[1] = '\0';
  550. X    for (type = 0; type < NUM_NOTES_TYPE; type++) {
  551. X        choiceString[0] = typeChar[type];
  552. X        panel_set( notesTypeItem, PANEL_CHOICE_STRING, type, choiceString, 0);
  553. X        panel_set( notesTypeItem, PANEL_CHOICE_X, type, 100 + 35*(type+1), 0);
  554. X        panel_set( notesTypeItem, PANEL_CHOICE_Y, type, 4, 0);
  555. X    }
  556. X    panel_set( notesTypeItem, PANEL_LABEL_X, 4, 0);
  557. X    panel_set( notesTypeItem, PANEL_LABEL_Y, 4, 0);
  558. X
  559. X    /* Get monthtool filename */
  560. X
  561. X    strcpy(toolFile, getenv("HOME"));
  562. X    strcat(toolFile, "/.monthtool");
  563. X
  564. X    /* Get today's date */
  565. X
  566. X    todaySet();
  567. X    yearToShow = tyear;
  568. X    monthToShow = tmonth;
  569. X
  570. X    /* Load the appointments file and show this month's calendar */
  571. X    
  572. X    loadData();    
  573. X    firstDowSet();
  574. X    dayHit(tday);    
  575. X
  576. X    /* Wait for events */
  577. X
  578. X    window_main_loop(frame);
  579. X
  580. X    /* When done, leave */
  581. X
  582. X    freeData();
  583. X    exit(0);
  584. X
  585. X}
  586. X
  587. static Notify_value    openCloseEvent(frame, event, arg, type)
  588. X
  589. XFrame                 frame;
  590. XEvent                *event;
  591. Notify_arg             arg;
  592. Notify_event_type     type;
  593. X
  594. X{
  595. X    int                    initialClosed, finalClosed;
  596. X    Notify_value        value;
  597. X
  598. X    initialClosed = (int) window_get( frame, FRAME_CLOSED );
  599. X    value = notify_next_event_func( frame, event, arg, type );
  600. X    finalClosed = (int) window_get( frame, FRAME_CLOSED );
  601. X
  602. X    if ( initialClosed != finalClosed ) {
  603. X        if ( finalClosed ) {
  604. X            saveData();
  605. X        }else{
  606. X            reloadData();
  607. X            todaySet();
  608. X            monthToShow = tmonth;
  609. X            yearToShow = tyear;
  610. X            monthDisplay();
  611. X            dayHit(tday);
  612. X        }
  613. X    }
  614. X
  615. X    return( value );
  616. X        
  617. X}
  618. X
  619. static void    monthEvent(item, event)
  620. X
  621. Panel_item     item;
  622. XEvent        *event;
  623. X
  624. X{
  625. X    switch (event_id(event)) {
  626. X    case MS_RIGHT:
  627. X        if (event_is_down(event)) {
  628. X            rootMenuDisplay(monthPanel,event);
  629. X        }
  630. X        break;
  631. X    case MS_LEFT:
  632. X        panel_default_handle_event(item,event);
  633. X        break;
  634. X    default:
  635. X        return;
  636. X    }
  637. X
  638. X}
  639. X
  640. static void    todayBtnHit(item, event)
  641. X
  642. Panel_item     item;
  643. XEvent        *event;
  644. X
  645. X{
  646. X    todaySet();
  647. X    if ( (monthToShow != tmonth) || (yearToShow != tyear) ) {
  648. X        notesSave();
  649. X        monthToShow = tmonth;
  650. X        yearToShow = tyear;
  651. X        monthDisplay();
  652. X        dayHit(tday);
  653. X    }else{
  654. X        if (dayToShow != tday) {
  655. X            notesSave();
  656. X            dayHit(tday);
  657. X        }
  658. X    }
  659. X}
  660. X
  661. static void    upBtnHit(item, event)
  662. X
  663. Panel_item     item;
  664. XEvent        *event;
  665. X
  666. X{
  667. X    notesSave();
  668. X    if (--monthToShow < 1) {
  669. X        monthToShow = 12;
  670. X        yearToShow--;
  671. X    }
  672. X    monthDisplay();
  673. X    dayHit(1);
  674. X
  675. X}
  676. X
  677. static void    downBtnHit(item, event)
  678. X
  679. Panel_item     item;
  680. XEvent        *event;
  681. X
  682. X{
  683. X    notesSave();
  684. X    if (++monthToShow == 13) {
  685. X        monthToShow = 1;
  686. X        yearToShow++;
  687. X    }
  688. X    monthDisplay();
  689. X    dayHit(1);
  690. X
  691. X}
  692. X
  693. static void    monthBackgroundHit(panel, event)
  694. X
  695. Panel         panel;
  696. XEvent        *event;
  697. X
  698. X{
  699. X    switch (event_id(event)) {
  700. X    case MS_RIGHT:
  701. X        if (event_is_down(event)) {
  702. X            rootMenuDisplay(monthPanel,event);
  703. X        }
  704. X        break;
  705. X    default:
  706. X        return;
  707. X    }
  708. X
  709. X}
  710. X
  711. static void    dateEvent(win, event, arg)
  712. X
  713. Canvas         win;
  714. XEvent        *event;
  715. caddr_t         arg;
  716. X
  717. X{
  718. X    int            column,
  719. X                row;
  720. X
  721. X    if (event_is_up(event)) {
  722. X        return;
  723. X    }
  724. X
  725. X    switch (event_id(event)) {
  726. X    case MS_LEFT:
  727. X        notesSave();
  728. X        column = event_x(event) / (DATE_BOX_WIDTH + GAP);
  729. X        row = (event_y(event)) / (DATE_BOX_HEIGHT + GAP);
  730. X        dayHit(monthBoxes[row][column].date);
  731. X        break;
  732. X    case MS_RIGHT:
  733. X        rootMenuDisplay(win,event);
  734. X        break;
  735. X    case WIN_REPAINT:
  736. X        notesSave();
  737. X        monthDisplay();
  738. X        dayHit(dayToShow);
  739. X        break;
  740. X    default:
  741. X        return;
  742. X    }
  743. X
  744. X}
  745. X
  746. dayHit(date)
  747. X
  748. int    date;
  749. X
  750. X{
  751. X    int                     row,
  752. X                         column;
  753. X 
  754. X    if (date != 0) {
  755. X        if (dayToShow != 0) {
  756. X            for (row = 0; row < DATE_ROWS; row++) {
  757. X                for (column = 0; column < DATE_COLS; column++) {
  758. X                    if (dayToShow == monthBoxes[row][column].date) {
  759. X                        dateBoxDisplay(row, column, NOHIGHLIGHT);
  760. X                    }
  761. X                }
  762. X            }
  763. X        }
  764. X        for (row = 0; row < DATE_ROWS; row++) {
  765. X            for (column = 0; column < DATE_COLS; column++) {
  766. X                if (date == monthBoxes[row][column].date) {
  767. X                    dateBoxDisplay(row, column, HIGHLIGHT);
  768. X                }
  769. X            }
  770. X        }
  771. X
  772. X        dayToShow = date;
  773. X
  774. X        dateNumToShow[NOTES_ALL_ALL_ALL] = 0;
  775. X
  776. X        dateNumToShow[NOTES_D_ALL_ALL] = dayToShow;
  777. X
  778. X        dateNumToShow[NOTES_D_M_ALL] = dayToShow + 100 * monthToShow;
  779. X
  780. X        dateNumToShow[NOTES_WEEKLY] = ((dayToShow + firstDow) % DATE_COLS);        
  781. X        if ( dateNumToShow[NOTES_WEEKLY] == 0 ) {
  782. X            dateNumToShow[NOTES_WEEKLY] = DATE_COLS;
  783. X        }
  784. X        dateNumToShow[NOTES_WEEKLY] += 100 * 99;
  785. X
  786. X        dateNumToShow[NOTES_D_M_Y] = dayToShow + 100 * monthToShow + 10000 * yearToShow;
  787. X
  788. X        notesDisplay();
  789. X
  790. X    }
  791. X
  792. X}
  793. X
  794. static void    notesPanelEvent(item, event)
  795. X
  796. Panel_item     item;
  797. XEvent        *event;
  798. X
  799. X{
  800. X
  801. X    switch (event_id(event)) {
  802. X    case MS_RIGHT:
  803. X        if (event_is_down(event)) {
  804. X            rootMenuDisplay(notesPanel,event);
  805. X        }
  806. X        break;
  807. X    case MS_LEFT:
  808. X        panel_default_handle_event(item,event);
  809. X        break;
  810. X    default:
  811. X        return;
  812. X    }
  813. X
  814. X}
  815. X
  816. static void    notesRadioHit(item, value, event)
  817. X
  818. Panel_item     item;
  819. int             value;
  820. XEvent        *event;
  821. X
  822. X{
  823. X    int            caretIndex,
  824. X                endIndex,
  825. X                lineStartIndex,
  826. X                nextLineStartIndex,
  827. X                ptrnStartIndex,
  828. X                ptrnEndIndex,
  829. X                ptrnLen,
  830. X                type,
  831. X                result,
  832. X                lineNo;
  833. X
  834. X    typeMark[0] = typeChar[value];
  835. X    ptrnLen = strlen(typeMark);
  836. X
  837. X    caretIndex = (int)window_get( notesDsply, TEXTSW_INSERTION_POINT );
  838. X
  839. X    lineNo = 0;
  840. X    lineStartIndex = 0;
  841. X    while (1) {
  842. X        nextLineStartIndex = (int)textsw_index_for_file_line(notesDsply, lineNo+1);
  843. X        if ( (nextLineStartIndex < 0) || (nextLineStartIndex > caretIndex) ) {
  844. X            break;
  845. X        }
  846. X        lineNo++;
  847. X        lineStartIndex = nextLineStartIndex;
  848. X    }
  849. X
  850. X    window_set( notesDsply, TEXTSW_INSERTION_POINT, lineStartIndex, 0 );
  851. X    textsw_insert( notesDsply, typeMark, ptrnLen );
  852. X    caretIndex += ptrnLen;
  853. X
  854. X    endIndex = (int)window_get( notesDsply, TEXTSW_LENGTH );
  855. X    if ( (nextLineStartIndex < 0) || (nextLineStartIndex > endIndex) ) {
  856. X        nextLineStartIndex = endIndex + 1;
  857. X    }
  858. X    
  859. X    lineStartIndex += strlen(typeMark);
  860. X    for (type = 0; type < NUM_NOTES_TYPE; type++) {
  861. X
  862. X        typeMark[0] = typeChar[type];
  863. X        ptrnLen = strlen(typeMark);
  864. X        while ( ptrnLen ) {
  865. X            do {
  866. X                ptrnStartIndex = lineStartIndex;
  867. X                result = textsw_find_bytes(notesDsply, &ptrnStartIndex, &ptrnEndIndex,
  868. X                    typeMark, ptrnLen, 0);
  869. X                if (result != -1) {
  870. X                    if ((ptrnEndIndex < nextLineStartIndex) && (ptrnStartIndex >= lineStartIndex)) {
  871. X                        textsw_erase(notesDsply, ptrnStartIndex, ptrnEndIndex);
  872. X                        caretIndex -= ptrnLen;
  873. X                    }else{
  874. X                        result = -1;
  875. X                    }
  876. X                }
  877. X            } while (result != -1);
  878. X            ptrnLen--;
  879. X        }
  880. X            
  881. X    }
  882. X
  883. X    window_set( notesDsply, TEXTSW_INSERTION_POINT, caretIndex, 0);
  884. X
  885. X}
  886. X
  887. static void    notesBackgroundHit(panel, event)
  888. X
  889. Panel         panel;
  890. XEvent        *event;
  891. X
  892. X{
  893. X    switch (event_id(event)) {
  894. X    case MS_RIGHT:
  895. X        if (event_is_down(event)) {
  896. X            rootMenuDisplay(notesPanel,event);
  897. X        }
  898. X        break;
  899. X    default:
  900. X        return;
  901. X    }
  902. X
  903. X}
  904. X
  905. rootMenuDisplay(window, event)
  906. X
  907. Window         window;
  908. XEvent        *event;
  909. X
  910. X{
  911. X
  912. X    switch( (int)menu_show(mainMenu, window, event, 0) ) {
  913. X    case MENU_SAVE:
  914. X        saveData();
  915. X        break;
  916. X    case MENU_RELOAD:
  917. X        reloadData();
  918. X        monthDisplay();
  919. X        dayHit(dayToShow);
  920. X        break;
  921. X    case MENU_CLOSE:
  922. X        saveData();
  923. X        window_set(frame, FRAME_CLOSED, TRUE, 0);
  924. X        break;
  925. X    case MENU_QUIT:
  926. X        saveData();
  927. X        window_destroy(frame);
  928. X        break;
  929. X    }
  930. X
  931. X}
  932. X
  933. monthDisplay()
  934. X
  935. X
  936. X{                
  937. X    int                     column,
  938. X                         row;
  939. X    int                     i, day;
  940. X    char                 monthString[20];
  941. X    struct apptsData     *cur ;
  942. X    struct dateBox        *thisBox;
  943. X
  944. X    sprintf(monthString, "%s %4u", smon[monthToShow-1], yearToShow);
  945. X    panel_set(monthItem, PANEL_LABEL_STRING, monthString, 0);
  946. X
  947. X    firstDowSet();
  948. X
  949. X    row = 0;
  950. X    for (column = 0; column < firstDow; column++) {
  951. X        monthBoxes[row][column].date = 0;
  952. X        monthBoxes[row][column].boxOutline = NO_OUTLINE;
  953. X    }
  954. X
  955. X    for ( day = 1; day <= mon[monthToShow]; day++) {
  956. X        monthBoxes[row][column].date = day;
  957. X        monthBoxes[row][column].boxOutline = NO_OUTLINE;
  958. X        if (column >= (DATE_COLS-1)) {
  959. X            row++;
  960. X            column = 0;
  961. X        }else{
  962. X            column++;
  963. X        }
  964. X    }
  965. X
  966. X    for (; row < DATE_ROWS; row++) {
  967. X        for (; column < DATE_COLS; column++) {
  968. X            monthBoxes[row][column].date = 0;
  969. X            monthBoxes[row][column].boxOutline = NO_OUTLINE;
  970. X        }
  971. X        column = 0;        
  972. X    }
  973. X
  974. X    for (i = 0; i < NUM_NOTES_TYPE; i++) {
  975. X        if  ( i == NOTES_WEEKLY ) { 
  976. X            for ( cur = firstApptRecord[i]; cur != NULL; cur = cur->next) {
  977. X                if ( cur->month == 99 ) {
  978. X                    for (row = 0; row < DATE_ROWS; row++) {
  979. X                        if (monthBoxes[row][cur->day-1].boxOutline != FULL_OUTLINE) {
  980. X                            monthBoxes[row][cur->day-1].boxOutline = HALF_OUTLINE;
  981. X                         }
  982. X                     }
  983. X                }
  984. X            }
  985. X        }else if  ( i != NOTES_ALL_ALL_ALL ) {  
  986. X            for (cur = firstApptRecord[i]; cur != NULL; cur = cur->next) {
  987. X                if (    i==NOTES_D_ALL_ALL ||
  988. X                (             cur->month==monthToShow &&  
  989. X                (                 i==NOTES_D_M_ALL ||
  990. X                (                     cur->year==yearToShow 
  991. X                )))) { 
  992. X                    thisBox = &monthBoxes[(cur->day + firstDow-1) / DATE_COLS]
  993. X                                         [(cur->day + firstDow-1) % DATE_COLS];
  994. X                    if ( i == NOTES_D_M_Y ) {
  995. X                        thisBox->boxOutline = FULL_OUTLINE;
  996. X                    }else if ( i != NOTES_ALL_ALL_ALL ) {
  997. X                        if (thisBox->boxOutline != FULL_OUTLINE) {
  998. X                            thisBox->boxOutline = HALF_OUTLINE;
  999. X                        }
  1000. X                    }
  1001. X                }
  1002. X            }
  1003. X        }
  1004. X    }
  1005. X
  1006. X    pw_writebackground(datesCrayon, 0, 0, WINDOW_WIDTH, DATES_HEIGHT, PIX_CLR);
  1007. X
  1008. X    for (row = 0; row < DATE_ROWS; row++) {
  1009. X        for (column = 0; column < DATE_COLS; column++) {
  1010. X            dateBoxDisplay(row, column, NOHIGHLIGHT);
  1011. X        }
  1012. X    }
  1013. X
  1014. X}
  1015. X
  1016. firstDowSet()
  1017. X
  1018. X{
  1019. X    int            i;
  1020. X
  1021. X    firstDow = jan1Set(yearToShow);
  1022. X    mon[2] = 29;
  1023. X    mon[9] = 30;
  1024. X    switch ((jan1Set(yearToShow + 1) + 7 - firstDow) % 7) {
  1025. X    case 1:                /* non-leap year */
  1026. X        mon[2] = 28;
  1027. X        break;
  1028. X    case 2:                /* leap year */
  1029. X        break;
  1030. X    default:            /* 1752 */
  1031. X        mon[9] = 19;
  1032. X        break;
  1033. X    }
  1034. X    for (i = 1; i < monthToShow; i++) {    
  1035. X        firstDow += mon[i];
  1036. X    }
  1037. X    firstDow %= 7;
  1038. X
  1039. X}
  1040. X
  1041. X
  1042. X
  1043. X
  1044. X
  1045. jan1Set(year)
  1046. X
  1047. int             year;
  1048. X
  1049. X{
  1050. X
  1051. X    register        y, dow;
  1052. X
  1053. X    /* normal gregorian calendar one extra day per four years */
  1054. X
  1055. X    y = year;
  1056. X    dow = 4 + y + (y + 3) / 4;
  1057. X
  1058. X    /* julian calendar regular gregorian less three days per 400 */
  1059. X
  1060. X    if (y > 1800) {
  1061. X        dow -= (y - 1701) / 100;
  1062. X        dow += (y - 1601) / 400;
  1063. X    }
  1064. X
  1065. X    /* great calendar changeover instant */
  1066. X
  1067. X    if (y > 1752)
  1068. X        dow += 3;
  1069. X
  1070. X    return (dow % 7);
  1071. X
  1072. X} 
  1073. X
  1074. todaySet()
  1075. X
  1076. X
  1077. X{
  1078. X    struct tm      *tp;        /* time structure */
  1079. X    long            tloc;    /* number of seconds since 1970 */
  1080. X
  1081. X    time(&tloc);        
  1082. X    tp = localtime(&tloc);
  1083. X    tyear = tp->tm_year;
  1084. X    tmonth = tp->tm_mon + 1;
  1085. X    tday = tp->tm_mday;
  1086. X    tyear += 1900;
  1087. X
  1088. X}
  1089. X
  1090. dateBoxDisplay(row, column, hilite)
  1091. X
  1092. int              row;
  1093. int              column;
  1094. int              hilite;
  1095. X
  1096. X{
  1097. X    char            dateString[4];
  1098. X
  1099. X    if (monthBoxes[row][column].date == 0) {
  1100. X        pw_write(datesCrayon, 
  1101. X            column * DATE_BOX_WIDTH + DATE_BORDER + (column * GAP),
  1102. X            row * DATE_BOX_HEIGHT + DATE_BORDER + (row * GAP),
  1103. X            DATE_BOX_WIDTH, DATE_BOX_HEIGHT, PIX_SRC, &dayPr, 0, 0);
  1104. X        pw_text(datesCrayon, 
  1105. X            column * DATE_BOX_WIDTH + DATE_BORDER + (column * GAP) + 8,
  1106. X            row * DATE_BOX_HEIGHT + DATE_BORDER + (row * GAP) + 20,
  1107. X            PIX_SRC | PIX_DST, font, "  ");
  1108. X    }else{
  1109. X        switch (monthBoxes[row][column].boxOutline) {
  1110. X        case FULL_OUTLINE:
  1111. X            pw_write(datesCrayon, 
  1112. X                column * DATE_BOX_WIDTH + DATE_BORDER + (column * GAP),
  1113. X                row * DATE_BOX_HEIGHT + DATE_BORDER + (row * GAP),
  1114. X                DATE_BOX_WIDTH, DATE_BOX_HEIGHT, PIX_SRC, 
  1115. X                hilite ? &fullDaySelPr : &fullDayPr, 
  1116. X                0, 0);
  1117. X            break;
  1118. X        case HALF_OUTLINE:
  1119. X            pw_write(datesCrayon, 
  1120. X                column * DATE_BOX_WIDTH + DATE_BORDER + (column * GAP),
  1121. X                row * DATE_BOX_HEIGHT + DATE_BORDER + (row * GAP),
  1122. X                DATE_BOX_WIDTH, DATE_BOX_HEIGHT, PIX_SRC, 
  1123. X                hilite ? &halfDaySelPr : &halfDayPr, 
  1124. X                0, 0);
  1125. X            break;
  1126. X        case NO_OUTLINE:
  1127. X            pw_write(datesCrayon, 
  1128. X                column * DATE_BOX_WIDTH + DATE_BORDER + (column * GAP),
  1129. X                row * DATE_BOX_HEIGHT + DATE_BORDER + (row * GAP),
  1130. X                DATE_BOX_WIDTH, DATE_BOX_HEIGHT, PIX_SRC, 
  1131. X                hilite ? &daySelPr : &dayPr, 
  1132. X                0, 0);
  1133. X            break;
  1134. X        }
  1135. X        sprintf(dateString, "%2u", monthBoxes[row][column].date);
  1136. X        pw_text(datesCrayon, 
  1137. X            column * DATE_BOX_WIDTH + DATE_BORDER + (column * GAP) + 8,
  1138. X            row * DATE_BOX_HEIGHT + DATE_BORDER + (row * GAP) + 20,
  1139. X            PIX_SRC | PIX_DST, font, dateString);
  1140. X    }
  1141. X
  1142. X}
  1143. X
  1144. notesDisplay()
  1145. X
  1146. X
  1147. X{
  1148. X    int                     type,
  1149. X                          i;
  1150. X    char                 timeString[7];
  1151. X    struct apptsData     *cur;
  1152. X
  1153. X    hasWeeklyNotes = 0;
  1154. X
  1155. X    i = (int)window_get(notesDsply, TEXTSW_LENGTH);
  1156. X    if ( i > 0 ) {
  1157. X        textsw_erase( notesDsply, 0, i + 1 );
  1158. X    }
  1159. X
  1160. X    for (type = 0; type < NUM_NOTES_TYPE; type++) {
  1161. X
  1162. X        typeMark[0] = typeChar[type];
  1163. X
  1164. X        cur = firstApptRecord[type];
  1165. X        while ( (cur != NULL) && (cur->dateNum < dateNumToShow[type]) ) {
  1166. X            cur = cur->next;                    
  1167. X        }
  1168. X
  1169. X        while ( (cur != NULL) && (cur->dateNum == dateNumToShow[type]) ) {
  1170. X            
  1171. X            textsw_insert( notesDsply, typeMark, 2 );
  1172. X            if (cur->time != 0) {
  1173. X                sprintf(timeString, "%d:%02d ", 
  1174. X                    (int)(cur->time / 100), (cur->time % 100));
  1175. X                textsw_insert( notesDsply, timeString, strlen(timeString) );
  1176. X            }
  1177. X            textsw_insert( notesDsply, cur->apptMsg, strlen(cur->apptMsg) );
  1178. X            textsw_insert( notesDsply, "\n", 1 );
  1179. X            cur = cur->next;    
  1180. X            if ( type == NOTES_WEEKLY ) {                
  1181. X                hasWeeklyNotes = 1;
  1182. X            }
  1183. X
  1184. X        }
  1185. X    
  1186. X    }
  1187. X
  1188. X    editCount = (int)window_get(notesDsply, TEXTSW_EDIT_COUNT);
  1189. X    window_set(notesDsply, TEXTSW_FIRST_LINE, 0, 0);
  1190. X    window_set(notesDsply, TEXTSW_UPDATE_SCROLLBAR, 0);
  1191. X
  1192. X}
  1193. X
  1194. notesSave()
  1195. X
  1196. X
  1197. X{
  1198. X    int                     bufLen,
  1199. X                         row, column,
  1200. X                         notesFound,
  1201. X                         nowHasWeeklyNotes,
  1202. X                         type,
  1203. X                         newEditCount,
  1204. X                         thisTime, thisYear, thisMonth, thisDay;
  1205. X    char                *thisMsg,
  1206. X                        *untypedMsg,
  1207. X                        *notesBuffer;
  1208. X    struct apptsData     *cur,
  1209. X                        *new,
  1210. X                        *old,
  1211. X                        *nextAppt[NUM_NOTES_TYPE];
  1212. X
  1213. X    newEditCount = (int)window_get(notesDsply, TEXTSW_EDIT_COUNT);
  1214. X    if (newEditCount <= editCount) {
  1215. X        return;
  1216. X    }
  1217. X    editCount = newEditCount;
  1218. X
  1219. X    for (type = 0; type < NUM_NOTES_TYPE; type++) {
  1220. X
  1221. X        cur = firstApptRecord[type];
  1222. X        while ( (cur != NULL) && (cur->dateNum < dateNumToShow[type]) ) {
  1223. X            cur = cur->next;                    
  1224. X        }
  1225. X
  1226. X        while ( (cur != NULL) && (cur->dateNum == dateNumToShow[type]) ) {
  1227. X            if (cur->prev != NULL) {
  1228. X                cur->prev->next = cur->next;
  1229. X            }else{
  1230. X                firstApptRecord[type] = cur->next;
  1231. X            }
  1232. X            if (cur->next != NULL) {
  1233. X                cur->next->prev = cur->prev;
  1234. X            }else{
  1235. X                lastApptRecord[type] = cur->prev;
  1236. X            }
  1237. X            old = cur;        
  1238. X            cur = cur->next;        
  1239. X            free(old->apptMsg);
  1240. X            free(old);            
  1241. X        }
  1242. X        nextAppt[type] = cur;
  1243. X
  1244. X    }
  1245. X
  1246. X    notesFound = NO_OUTLINE;
  1247. X    nowHasWeeklyNotes = 0;
  1248. X    bufLen = (int)window_get(notesDsply, TEXTSW_LENGTH);
  1249. X    
  1250. X    if (bufLen > 0) {
  1251. X
  1252. X        notesBuffer = (char *)malloc( bufLen + 1 );
  1253. X        if ( notesBuffer == (char *)0 ) {
  1254. X            fprintf(stderr, "Monthtool error:  Out of memory.\n");
  1255. X            exit(4);
  1256. X        }
  1257. X        window_get( notesDsply, TEXTSW_CONTENTS, 0, notesBuffer, bufLen + 1 );
  1258. X    
  1259. X        thisMsg = strtok( notesBuffer, "\n" );
  1260. X
  1261. X        while ( thisMsg != NULL ) {
  1262. X    
  1263. X            stripType(thisMsg, &untypedMsg, &type);
  1264. X            findTime(&untypedMsg, &thisTime);
  1265. X                
  1266. X            if (strlen (untypedMsg) != 0) {
  1267. X
  1268. X                thisYear = thisMonth = thisDay = 0;
  1269. X                switch (type) {
  1270. X                    case NOTES_D_M_Y:
  1271. X                        thisYear = yearToShow;
  1272. X                    case NOTES_D_M_ALL:
  1273. X                        thisMonth = monthToShow;
  1274. X                    case NOTES_D_ALL_ALL:
  1275. X                        thisDay = dayToShow;
  1276. X                        break;
  1277. X                    case NOTES_WEEKLY:
  1278. X                        thisMonth = 99;
  1279. X                        thisDay = (dayToShow + firstDow) % DATE_COLS;
  1280. X                        if ( thisDay == 0 ) {
  1281. X                            thisDay = DATE_COLS;
  1282. X                        }
  1283. X                        nowHasWeeklyNotes = 1;
  1284. X                }
  1285. X
  1286. X                new = (struct apptsData *)malloc( sizeof( struct apptsData ) );
  1287. X                if ( new == (struct apptsData *)0 ) {
  1288. X                    fprintf(stderr, "Monthtool error:  Out of memory.\n");
  1289. X                    exit(4);
  1290. X                }
  1291. X                new->year = thisYear;
  1292. X                new->month = thisMonth;
  1293. X                new->day = thisDay;
  1294. X                new->dateNum = dateNumToShow[type];
  1295. X                new->time = thisTime;
  1296. X                new->apptMsg = (char *)malloc( strlen(untypedMsg) + 1 );
  1297. X                if ( new->apptMsg  == (char *)0 ) {
  1298. X                    fprintf(stderr, "Monthtool error:  Out of memory.\n");
  1299. X                    exit(4);
  1300. X                }
  1301. X                strcpy( new->apptMsg, untypedMsg );
  1302. X
  1303. X                if (nextAppt[type] != NULL) {
  1304. X                    new->prev = nextAppt[type]->prev;
  1305. X                    if (new->prev != NULL) {
  1306. X                        new->prev->next = new;
  1307. X                    }else{
  1308. X                        firstApptRecord[type] = new;
  1309. X                    }                
  1310. X                    new->next = nextAppt[type];
  1311. X                    if (new->next != NULL) {
  1312. X                        new->next->prev = new;
  1313. X                    }else{
  1314. X                        lastApptRecord[type] = new;
  1315. X                    }                
  1316. X                }else{    
  1317. X                    if ( lastApptRecord[type] != NULL ) {
  1318. X                        new->next = NULL;
  1319. X                        new->prev = lastApptRecord[type];
  1320. X                        lastApptRecord[type]->next = new;
  1321. X                        lastApptRecord[type] = new;
  1322. X                    }else{                
  1323. X                        firstApptRecord[type] = lastApptRecord[type] = new;
  1324. X                        new->prev = new->next = NULL;
  1325. X                    }
  1326. X                }    
  1327. X    
  1328. X                if (type == NOTES_D_M_Y) {    
  1329. X                    notesFound = FULL_OUTLINE;
  1330. X                }else if (type != NOTES_ALL_ALL_ALL) {    
  1331. X                    if (notesFound != FULL_OUTLINE) {
  1332. X                        notesFound = HALF_OUTLINE;
  1333. X                    }
  1334. X                }
  1335. X
  1336. X            }
  1337. X            free(untypedMsg);
  1338. X            thisMsg = strtok( NULL, "\n" );
  1339. X
  1340. X        }
  1341. X
  1342. X        free(notesBuffer);
  1343. X
  1344. X    }
  1345. X
  1346. X    if (hasWeeklyNotes == nowHasWeeklyNotes) {
  1347. X        for (row = 0; row < DATE_ROWS; row++) {
  1348. X            for (column = 0; column < DATE_COLS; column++) {
  1349. X                if (dayToShow == monthBoxes[row][column].date) {
  1350. X                    monthBoxes[row][column].boxOutline = notesFound;
  1351. X                    dateBoxDisplay(row, column, HIGHLIGHT);
  1352. X                }
  1353. X            }
  1354. X        }
  1355. X    }else{
  1356. X        monthDisplay();
  1357. X    }
  1358. X
  1359. X    notesModified = 1; 
  1360. X    hasWeeklyNotes = nowHasWeeklyNotes;
  1361. X
  1362. X}
  1363. X
  1364. int     stripType( oldMsg, newMsg, type )
  1365. X
  1366. char         *oldMsg;
  1367. char        **newMsg;
  1368. int             *type;
  1369. X
  1370. X{
  1371. X    int             i,j,
  1372. X                 typeFound, thisIsTypeChar;
  1373. X 
  1374. X    *newMsg = (char *)malloc( strlen(oldMsg) + 1 );
  1375. X    if ( *newMsg  == (char *)0 ) {
  1376. X        fprintf(stderr, "Monthtool error:  Out of memory.\n");
  1377. X        exit(4);
  1378. X    }
  1379. X
  1380. X    i = 0;
  1381. X    typeFound = 0;
  1382. X
  1383. X    while ( *oldMsg != '\0' ) {
  1384. X        thisIsTypeChar = 0;
  1385. X        for (j = 0; j < NUM_NOTES_TYPE; j++) {
  1386. X            if ( *oldMsg == typeChar[j] ) {
  1387. X                *type = j;
  1388. X                thisIsTypeChar = 1;
  1389. X                typeFound = 1;
  1390. X            }
  1391. X        }            
  1392. X        if (thisIsTypeChar) {
  1393. X            oldMsg++;
  1394. X            while (*oldMsg == ' ') {
  1395. X                oldMsg++;
  1396. X            }
  1397. X        }else{
  1398. X            (*newMsg)[i] = *oldMsg;
  1399. X            oldMsg++;
  1400. X            i++;
  1401. X        }        
  1402. X    } 
  1403. X    (*newMsg)[i] = '\0';
  1404. X
  1405. X    if ( !typeFound ) {
  1406. X        *type = NOTES_D_M_Y;
  1407. X    }
  1408. X
  1409. X}
  1410. X
  1411. findTime(msg, time)
  1412. X
  1413. char     **msg;
  1414. int         *time;
  1415. X
  1416. X{
  1417. X    char     timeString[5];
  1418. X    char    *curChar;
  1419. X    int         timeFound;
  1420. X
  1421. X    curChar = *msg;                        
  1422. X    while (*curChar == ' ') {
  1423. X        curChar++;
  1424. X    }
  1425. X
  1426. X    if (strlen(curChar) >= 4) {        
  1427. X
  1428. X        timeFound = 1;
  1429. X        if (*(curChar+1) == ':') {
  1430. X            timeString[0] = '0';    
  1431. X        }else if (*(curChar+2) == ':') {
  1432. X            if (isdigit(*curChar)) {
  1433. X                timeString[0] = *curChar;
  1434. X                curChar++;
  1435. X            }else{
  1436. X                timeFound = 0;
  1437. X            }
  1438. X        }else{
  1439. X            timeFound = 0;
  1440. X        }
  1441. X
  1442. X        if (timeFound) {
  1443. X            if ( isdigit(*curChar) && isdigit(*(curChar+2)) && isdigit(*(curChar+3)) &&
  1444. X                    ( (*(curChar+4) == ' ') || (*(curChar+4) == '\0') ) ) {
  1445. X                timeString[1] = *curChar;
  1446. X                timeString[2] = *(curChar+2);
  1447. X                timeString[3] = *(curChar+3);
  1448. X                timeString[4] = '\0';                        
  1449. X            }else{
  1450. X                timeFound = 0;
  1451. X            }
  1452. X        }
  1453. X    }else{
  1454. X        timeFound = 0;
  1455. X    }
  1456. X
  1457. X    if (timeFound) {
  1458. X        *time = atoi( timeString );
  1459. X        if ( ( (int)(*time / 100) >= 24 ) || ( (*time % 100 ) >= 60 ) ) {
  1460. X            *time = 0;
  1461. X        }else{
  1462. X            curChar += 4;
  1463. X            while (*curChar == ' ') {
  1464. X                curChar++;
  1465. X            }
  1466. X            *msg = curChar;
  1467. X        }
  1468. X    }else{
  1469. X        *time = 0;
  1470. X    }
  1471. X                                         
  1472. X}
  1473. X
  1474. loadData()
  1475. X
  1476. X
  1477. X{
  1478. X    FILE                *fptr;
  1479. X
  1480. X    char                 basedata[MAX_MSG_LEN+100];
  1481. X    char                *timestr;
  1482. X    char                *apptstring;
  1483. X
  1484. X    int                     i;
  1485. X    struct apptsData     *new;
  1486. X
  1487. X
  1488. X    if ((fptr = fopen(toolFile, "r")) != NULL) {
  1489. X
  1490. X        for ( i = 0; i < (NUM_NOTES_TYPE + 1 /*for NOTES_ERROR*/); i++ ){
  1491. X            firstApptRecord[i] = lastApptRecord[i] = NULL;
  1492. X        }
  1493. X
  1494. X        while ((fgets(basedata, MAX_MSG_LEN+100, fptr) != NULL)) {
  1495. X
  1496. X            basedata[MAX_MSG_LEN+99] = NULL;
  1497. X
  1498. X            new = (struct apptsData *)malloc( sizeof( struct apptsData ) );
  1499. X            if ( new == (struct apptsData *)0 ) {
  1500. X                fprintf(stderr, "Monthtool error:  Out of memory.\n");
  1501. X                exit(4);
  1502. X            }
  1503. X
  1504. X            new->month = atoi( strtok(basedata, ",") );
  1505. X            new->day = atoi( strtok(NULL, ",") );
  1506. X            new->year = atoi( strtok(NULL, ",") );
  1507. X            new->dateNum = 10000 * new->year + 100 * new->month + new->day;
  1508. X
  1509. X            timestr = strtok(NULL,","); 
  1510. X            if (strcmp(timestr, "    ") == 0) {
  1511. X                new->time = 0;
  1512. X            }else{
  1513. X                new->time = atoi(timestr);
  1514. X            }     
  1515. X
  1516. X            apptstring = strtok(NULL, "\n" );
  1517. X            new->apptMsg = (char *)malloc(strlen(apptstring) + 1);
  1518. X            if ( new->apptMsg == (char *)0 ) {
  1519. X                fprintf(stderr, "Monthtool error:  Out of memory.\n");
  1520. X                exit(4);
  1521. X            }
  1522. X            strcpy(new->apptMsg, apptstring);
  1523. X
  1524. X            if ( new->year != 0 ) {
  1525. X                if ( new->month != 0 ) {
  1526. X                    if ( new->day != 0 ) {
  1527. X                        i = NOTES_D_M_Y;
  1528. X                    }else{
  1529. X                        i = NOTES_ERROR;    /* *mmyyyy */
  1530. X                    }
  1531. X                }else{
  1532. X                    i = NOTES_ERROR;        /* dd*yyyy or **yyyy */
  1533. X                }
  1534. X            }else{
  1535. X                if ( new->month == 99 ) {
  1536. X                    if ( (new->day >= 1) &&  (new->day <= 7) ) {
  1537. X                        i = NOTES_WEEKLY;
  1538. X                    }else{
  1539. X                        i = NOTES_ERROR;    
  1540. X                    }
  1541. X                }else if ( new->month != 0 ) {
  1542. X                    if ( new->day != 0 ) {
  1543. X                        i = NOTES_D_M_ALL;
  1544. X                    }else{
  1545. X                        i = NOTES_ERROR;    /* *mm* */
  1546. X                    }
  1547. X                }else{
  1548. X                    if ( new->day != 0 ) {
  1549. X                        i = NOTES_D_ALL_ALL;
  1550. X                    }else{
  1551. X                        i = NOTES_ALL_ALL_ALL;   
  1552. X                    }
  1553. X                }
  1554. X            }
  1555. X                
  1556. X            if ( i == NOTES_ERROR ) {
  1557. X                fprintf(stderr, "Monthtool warning! Invalid record: %u,%u,%4u,",
  1558. X                    new->month, new->day, new->year );
  1559. X                if (new->time != 0) {
  1560. X                    fprintf(stderr, "%04u", new->time);
  1561. X                }else{
  1562. X                    fprintf(stderr, "    ");
  1563. X                }
  1564. X                fprintf(stderr, ",%s\n", new->apptMsg );
  1565. X            }
  1566. X
  1567. X            insertApptRecord(new, i);
  1568. X                        
  1569. X        }
  1570. X
  1571. X        fclose(fptr);
  1572. X        stat( toolFile, &lastStatus );
  1573. X    }
  1574. X
  1575. X} 
  1576. X
  1577. insertApptRecord(new, type)
  1578. X
  1579. struct apptsData     *new;
  1580. int                     type;
  1581. X
  1582. X{
  1583. X    struct apptsData     *cur;
  1584. X    int                     inserted;
  1585. X
  1586. X    if (lastApptRecord[type] == NULL) {
  1587. X        firstApptRecord[type] = lastApptRecord[type] = new;
  1588. X        new->prev = NULL;                
  1589. X        new->next = NULL;    
  1590. X    }else{
  1591. X        inserted = 0;
  1592. X        cur = lastApptRecord[type];
  1593. X        do {
  1594. X            if (new->dateNum >= cur->dateNum) {
  1595. X                if (cur->next != NULL) {
  1596. X                    cur->next->prev = new;
  1597. X                }else{
  1598. X                    lastApptRecord[type] = new;
  1599. X                }
  1600. X                new->next = cur->next;
  1601. X                new->prev = cur;
  1602. X                cur->next = new;
  1603. X                inserted = 1;
  1604. X            }else{
  1605. X                cur = cur->prev;
  1606. X            }
  1607. X        } while ( !inserted && cur != NULL );
  1608. X        if (!inserted) {
  1609. X            new->next = firstApptRecord[type];
  1610. X            new->prev = NULL;
  1611. X            firstApptRecord[type]->prev = new;
  1612. X            firstApptRecord[type] = new;
  1613. X        }                        
  1614. X    }
  1615. X
  1616. X}
  1617. X
  1618. reloadData()
  1619. X
  1620. X
  1621. X{
  1622. X    struct stat            statusNow;
  1623. X
  1624. X
  1625. X    stat( toolFile, &statusNow );
  1626. X    if ( statusNow.st_mtime > lastStatus.st_mtime ) {
  1627. X        loadData();
  1628. X    }
  1629. X
  1630. X}
  1631. X
  1632. saveData()
  1633. X
  1634. X
  1635. X{
  1636. X    FILE                *fptr;
  1637. X
  1638. X    int                     i;
  1639. X    struct apptsData     *cur;
  1640. X
  1641. X
  1642. X    notesSave();
  1643. X
  1644. X    if (notesModified) {
  1645. X
  1646. X        if ((fptr = fopen(toolFile, "w")) == NULL) {
  1647. X            fprintf(stderr, "Monthtool error:  Cannot open %s file", toolFile);
  1648. X            return;
  1649. X        }
  1650. X
  1651. X        for ( i = 0; i < (NUM_NOTES_TYPE + 1 /*for NOTES_ERROR*/); i++ ) {
  1652. X            for (cur = firstApptRecord[i]; cur != NULL; cur = cur->next) {
  1653. X                fprintf(fptr, "%u,%u,%u,", cur->month, cur->day, cur->year );
  1654. X                if (cur->time != 0) {
  1655. X                    fprintf(fptr, "%04u", cur->time);
  1656. X                }else{
  1657. X                    fprintf(fptr, "    ");
  1658. X                }
  1659. X                if ( strlen(cur->apptMsg) > (MAX_MSG_LEN-1) ) {
  1660. X                    cur->apptMsg[MAX_MSG_LEN-1] = NULL;
  1661. X                    fprintf(stderr, "Monthtool warning! Record truncated: %u,%u,%4u,",
  1662. X                        cur->month, cur->day, cur->year );
  1663. X                    if (cur->time != 0) {
  1664. X                        fprintf(stderr, "%04u", cur->time);
  1665. X                    }else{
  1666. X                        fprintf(stderr, "    ");
  1667. X                    }
  1668. X                    fprintf(stderr, ",%s\n", cur->apptMsg );
  1669. X                }
  1670. X                fprintf(fptr, ",%s\n", cur->apptMsg );
  1671. X            }
  1672. X        }
  1673. X
  1674. X        fclose(fptr);
  1675. X        stat( toolFile, &lastStatus );
  1676. X
  1677. X        notesModified = 0;
  1678. X
  1679. X    }
  1680. X
  1681. X}
  1682. X
  1683. freeData()
  1684. X
  1685. X
  1686. X{
  1687. X
  1688. X    int                     i;
  1689. X    struct apptsData     *cur ;
  1690. X
  1691. X    for ( i = 0; i < (NUM_NOTES_TYPE + 1 /*for NOTES_ERROR*/); i++ ) {
  1692. X        while( firstApptRecord[i] != NULL) {
  1693. X            cur = firstApptRecord[i]; 
  1694. X            firstApptRecord[i] = firstApptRecord[i]->next;
  1695. X            free(cur->apptMsg);
  1696. X            free( cur );
  1697. X        }
  1698. X    }
  1699. X    
  1700. X}
  1701. X    
  1702. END_OF_FILE
  1703. if test 43509 -ne `wc -c <'monthtool.c'`; then
  1704.     echo shar: \"'monthtool.c'\" unpacked with wrong size!
  1705. fi
  1706. # end of 'monthtool.c'
  1707. fi
  1708. echo shar: End of archive 2 \(of 2\).
  1709. cp /dev/null ark2isdone
  1710. MISSING=""
  1711. for I in 1 2 ; do
  1712.     if test ! -f ark${I}isdone ; then
  1713.     MISSING="${MISSING} ${I}"
  1714.     fi
  1715. done
  1716. if test "${MISSING}" = "" ; then
  1717.     echo You have unpacked both archives.
  1718.     rm -f ark[1-9]isdone
  1719. else
  1720.     echo You still need to unpack the following archives:
  1721.     echo "        " ${MISSING}
  1722. fi
  1723. ##  End of shell archive.
  1724. exit 0
  1725.